MacTech 1 to 12/MacTech-vol-1-12.toast/Source/MacTech® Magazine/Volume 03 - 1987/03.10 Oct 87/RomRef sources/ROM Data sources/Formal2.asm

Assembly Source File | 1986-08-16 | 19.3 KB | 1,061 lines | [TEXT/MEDT]

; -----
; Data for each toolbox call by Manager
; -----

        STRING_FORMAT   0       NO count in this section

;--FontData--
id set 299
;FMSwapFont
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    '(FMOutput *) out = FMSwapFont((FMInput *) inRec)'

;GetFNum
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetFNum('
    .Str255  VAR,'fntName, '
    .Integer VAR,'fntNun)'

;GetFontName
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'GetFontName('
    .Integer NOVAR,'fntNum, '
    .Str255  VAR,'fntName)'

;InitFonts
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InitFonts()'

;RealFont
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'real = RealFont('
    .Integer NOVAR,'fntNum, '
    .Integer NOVAR,'fntSz)'

;SetFontLock
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetFontLock('
    .Boolean NOVAR,'flag)'

;--InternationalUtilityData--
id set 319
;IUCompString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'flag = IUCompString('
    .Str255  VAR,'aStr, '
    .Str255  VAR,'bStr)'

;IUDatePString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'IUDatePString('
    .long    NOVAR,'daTime, '
    .byte    NOVAR,'form, '
    .Str255  VAR,'result, '
    .Handle  NOVAR,'intlParm)'

;IUDateString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'IUDateString('
    .long    NOVAR,'daTime, '
    .byte    NOVAR,'form, '
    .Str255  VAR,'result)'

;IUEqualString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'isEq = IUEqualString('
    .Str255  VAR,'aStr, '
    .Str255  VAR,'bStr)'

;IUGetIntl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h = IUGetIntl('
    .Integer NOVAR,'ID)'

;IUMagIDString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'isEq = IUMagIDString('
    .Ptr     NOVAR,'aPtr, '
    .Ptr     NOVAR,'bPtr, '
    .Integer NOVAR,'aLen, '
    .Integer NOVAR,'bLen)'

;IUMagString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'flag = IUMagString('
    .Ptr     NOVAR,'aPtr, '
    .Ptr     NOVAR,'bPtr, '
    .Integer NOVAR,'aLen, '
    .Integer NOVAR,'bLen)'

;IUMetric
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'isMet = IUMetric()'

;IUSetIntl
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'IUSetIntl('
    .Integer NOVAR,'refNum, '
    .Integer NOVAR,'ID, '
    .Handle  NOVAR,'intlParm)'

;IUTimePString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'IUTimePString('
    .long    NOVAR,'daTime, '
    .Boolean NOVAR,'wantSec, '
    .Str255  VAR,'result, '
    .Handle  NOVAR,'intlParm)'

;IUTimeString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'IUTimeString('
    .long    NOVAR,'daTime, '
    .Boolean NOVAR,'wantSec, '
    .Str255  VAR,'result)'

;--MemoryData--
id set 349
;ApplicZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Zone    VAR,'THz = ApplicZone()'

;BlockMove
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'BlockMove('
    .byte   VAR,'source, '
    .byte   VAR,'dest, '
    .long   NOVAR,'bytecount)'

;CompactMem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long    NOVAR,'size = CompactMem('
    .long    NOVAR,'needed)'

;DisposHandle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DisposHandle('
    .Handle  NOVAR,'tH)'

;DisposPtr
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'DisposPtr('
    .Ptr    NOVAR,'tPtr)'

;EmptyHandle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'EmptyHandle('
    .Handle  NOVAR,'tH)'

;FreeMem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long    NOVAR,'avail = FreeMem()'

;GetApplLimit
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Ptr    NOVAR,'top = GetApplLimit()'

;GetHandleSize
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'size = GetHandleSize('
    .Handle  NOVAR,'tH)'

;GetPtrSize
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'size = GetPtrSize('
    .Ptr     NOVAR,'tPtr)'

;GetZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Zone    VAR,'tHz = GetZone()'

;GZSaveHnd
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Handle  NOVAR,'h = GZSaveHnd()'

;HandleZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Zone    VAR,'tHz = HandleZone('
    .Handle  NOVAR,'tH)'

;HLock
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'HLock('
    .Handle  NOVAR,'tH)'

;HNoPurge
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'HNoPurge('
    .Handle  NOVAR,'tH)'

;HPurge
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'HPurge('
    .Handle  NOVAR,'tH)'

;HUnlock
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'HUnlock('
    .Handle  NOVAR,'tH)'

;InitApplZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InitApplZone()'

;InitZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InitZone('
    .Ptr     NOVAR,'proc, '
    .Integer NOVAR,'moreMast, '
    .Ptr     NOVAR,'limitPtr, '
    .Ptr     NOVAR,'startPtr)'

;MaxApplZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'MaxApplZone()'

;MaxMem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long    NOVAR,'size = MaxMem('
    .long    VAR,'wanted)'

;MemError
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = MemError()'

;MoreMasters
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'MoreMasters()'

;MoveHHi
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'MoveHHi('
    .Handle  NOVAR,'tH)'

;MyGrowZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long    NOVAR,'size = MyGrowZone('
    .long    VAR,'wanted)'

;NewHandle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h = NewHandle('
    .long    NOVAR,'wanted)'

;NewPtr
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Ptr     NOVAR,'Ptr = NewPtr('
    .long    NOVAR,'wanted)'

;PtrZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Zone    VAR,'tHz = PtrZone('
    .Ptr     NOVAR,'Ptr)'

;PurgeMem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PurgeMem('
    .long    NOVAR,'needed)'

;ReallocHandle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ReallocHandle('
    .Handle  NOVAR,'tHndl, '
    .long    NOVAR,'needed)'

;RecoverHandle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h = RecoverHandle('
    .Ptr     NOVAR,'master)'

;ResrvMem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'ResrvMem('
    .long    NOVAR,'needed)'

;SetApplBase
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetApplBase('
    .Ptr    NOVAR,'base)'

;SetApplLimit
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetApplLimit'
    .Ptr    NOVAR,'zoneLimit)'

;SetGrowZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetGrowZone('
    .Ptr    NOVAR,'proc)'

;SetHandleSize
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetHandleSize('
    .Handle  NOVAR,'tHndl, '
    .long    NOVAR,'needed)'

;SetPtrSize
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetPtrSize('
    .Ptr     NOVAR,'tPtr, '
    .long    NOVAR,'needed)'

;SetZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetZone('
    .Zone    VAR,'tHz)'

;SystemZone
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Zone    VAR,'sysZn = SystemZone()'

;TopMem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Ptr    NOVAR,'top = TopMem()'


;--MenuData--
id set 399
;AddResMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'AddResMenu('
    .Handle  NOVAR,'tMenuH, '
    .type    NOVAR,'type)'

;AppendMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'AppendMenu('
    .Handle  NOVAR,'tMenuH, '
    .Str255  VAR,'itemStr)'

;CalcMenuSize
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CalcMenuSize('
    .Handle  NOVAR,'tMenuH)'

;CheckItem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'CheckItem('
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item, '
    .Boolean NOVAR,'chkd)'

;ClearMenuBar
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'ClearMenuBar()'

;CountMItems
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'ct = CountMItems('
    .Handle  NOVAR,'tMenuH)'

;DeleteMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'DeleteMenu('
    .Integer NOVAR,'ID)'

;DisableItem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'DisableItem('
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item)'

;DisposeMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DisposeMenu('
    .Handle  NOVAR,'tMenuH)'

;DrawMenuBar
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'DrawMenuBar()'

;EnableItem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'EnableItem('
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item)'

;FlashMenuBar
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'FlashMenuBar('
    .Integer NOVAR,'ID)'

;GetItem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetItem('
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item, '
    .Str255  VAR,'iStr)'

;GetItemIcon
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetItemIcon('
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item, '
    .byte    VAR,'icon)'

;GetItemMark
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetItemMark('
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item, '
    .byte    VAR,'mark)'

;GetItemStyle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetItemStyle('
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item, '
    .byte    VAR,'style)'

;GetMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h = GetMenu('
    .Integer NOVAR,'ID)'

;GetMenuBar
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'barH = GetMenuBar()'

;GetMHandle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Handle  NOVAR,'mH = GetMHandle('
    .Integer NOVAR,'ID)'

;GetNewMBar
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'barH = GetNewMBar('
    .Integer NOVAR,'ID)'

;HiliteMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'HiliteMenu('
    .Integer NOVAR,'ID)'

;InitMenus
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InitMenus()'

;InsertMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InsertMenu('
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'beforeID)'

;InsertResMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InsertResMenu('
    .Handle  NOVAR,'tMenuH, '
    .type    NOVAR,'type, '
    .Integer NOVAR,'afterID)'

;MenuKey
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long    NOVAR,'which = MenuKey('
    .byte    NOVAR,'ch)'

;MenuSelect
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .long    NOVAR,'which = MenuSelect('
    .Pt      VAR,'start)'

;NewMenu
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'menuH = NewMenu('
    .Integer NOVAR,'ID, '
    .Str255  VAR,'title)'

;SetItem
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetItem('
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item, '
    .Str255  VAR,'itemStr)'

;SetItemIcon
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SetItemIcon'
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item, '
    .byte    NOVAR,'icon)'

;SetItemMark
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'Dummy'
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item, '
    .byte    NOVAR,'mark)'

;SetItemStyle
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'Dummy'
    .Handle  NOVAR,'tMenuH, '
    .Integer NOVAR,'item, '
    .byte    NOVAR,'style)'

;SetMenuBar
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetMenuBar('
    .Handle  NOVAR,'mList)'

;SetMenuFlash
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetMenuFlash('
    .Integer NOVAR,'cnt)'

;--OSEventData--
id set 449
;FlushEvents
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'FlushEvents('
    .Integer NOVAR,'eventM, '
    .Integer NOVAR,'stopM)'

;GetEvQHdr
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .QHdrRec VAR,'qHdPtr = GetEvQHdr()'

;GetOSEvent
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'anyEv = GetOSEvent('
    .Integer NOVAR,'evtM, '
    .EvtRec  VAR,'theEvent)'

;OSEventAvail
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'anyEv = OSEventAvail('
    .Integer NOVAR,'evtM, '
    .EvtRec  VAR,'theEvent)'

;PostEvents
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PostEvents('
    .Integer NOVAR,'code, '
    .long    NOVAR,'msg)'

;SetEventMask
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetEventMask('
    .Integer NOVAR,'mask)'

;--OSUtilityData--
id set 469
;Date2Secs
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'Date2Secs('
    .DTime   VAR,'inDate, '
    .long    VAR,'secs)'

;Delay
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'Delay('
    .long    NOVAR,'numT, '
    .long    VAR,'finalT)'

;Dequeue
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = Dequeue('
    DC.B     '(QElem *) qEntry, (QHdr *) theQ)'

;Enqueue
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'Enqueue('
    DC.B     '(QElem *) qEntry, (QHdr *) theQ)'

;EqualString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Boolean NOVAR,'isEq = EqualString('
    .Str255  VAR,'aStr, '
    .Str255  VAR,'bStr, '
    .Boolean NOVAR,'caseSens, '
    .Boolean NOVAR,'diacSens)'

;GetDateTime
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetDateTime('
    .long    VAR,'secs)'

;GetSysPPtr
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'sysPPtr = GetSysPPtr()'

;GetTime
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'GetTime('
    .DTime   VAR,'date)'

;GetTrapAddress
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .long   NOVAR,'addr=GetTrapAddress('
    .Integer NOVAR,'trapNo)'

;HandAndHand
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = HandAndHand('
    .Handle  NOVAR,'aHndl, '
    .Handle  NOVAR,'bHndl)'

;HandToHand
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = Dummy'
    .Handle  VAR,'theH)'

;InitUtil
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = InitUtil()'

;PtrAndHand
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = PtrAndHand('
    .Ptr     NOVAR,'tPtr, '
    .Handle  NOVAR,'tHdnl, '
    .long    NOVAR,'size)'

;PtrToHand
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = PtrToHand('
    .Ptr     NOVAR,'srcPtr, '
    .Handle  VAR,'destH, '
    .long    NOVAR,'size)'

;PtrToXHand
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'err = PtrToXHand'
    .Ptr     NOVAR,'srcPtr, '
    .Handle  NOVAR,'destH, '
    .long    NOVAR,'size)'

;ReadDateTime
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = ReadDateTime('
    .long    VAR,'secs)'

;Secs2Date
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = Secs2Date('
    .long    NOVAR,'secs, '
    .DTime   VAR,'date)'

;SetDateTime
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = SetDateTime('
    .long    NOVAR,'secs)'

;SetTime
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetTime('
    .DTime   VAR,'date)'

;SetTrapAddress
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'SetTrapAddress('
    .Ptr     NOVAR,'trapAd, '
    .Integer NOVAR,'trapNo)'

;SysBeep
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'SysBeep('
    .Integer NOVAR,'ticks)'

;UprString
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'UprString('
    .Str255  VAR,'theSt, '
    .Boolean NOVAR,'diacSens)'

;WriteParam
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = WriteParam()'

;--PackageData--
id set 499
;InitAllPacks
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InitAllPacks()'

;InitPack
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'InitPack('
    .Integer NOVAR,'ID)'

;--PrintData--
id set 509
;PrClose
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PrClose()'

;PrCloseDoc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PrCloseDoc('
    .TPrP    VAR,'pPrPort)'

;PrClosePage
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PrClosePage('
    .TPrP    VAR,'pPrPort)'

;PrCtlCall
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PrCtlCall('
    .Integer NOVAR,'iWhich, '
    .long    NOVAR,'parm1, '
    .long    NOVAR,'parm2, '
    .long    NOVAR,'parm3)'

;PrDrvrClose
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PrDrvrClose()'

;PrDrvrDCE
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Handle  NOVAR,'h = PrDrvrDCE()'

;PrDrvrOpen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PrDrvrOpen()'

;PrDrvrVers
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Integer NOVAR,'vers = PrDrvrVers()'

;PrError
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    .Integer NOVAR,'err = PrError()'

;PrintDefault
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PrintDefault('
    .THPrint  NOVAR,'hPr)'

;PrJobDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'ok = PrJobDialog('
    .THPrint  NOVAR,'hPr)'

;PrJobMerge
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PrJobMerge('
    .THPrint  NOVAR,'src, '
    .THPrint  NOVAR,'dest)'

;PrOpen
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PrOpen()'

;PrOpenDoc
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .TPrP    VAR,'docPr = PrOpenDoc('
    .THPrint  NOVAR,'hPr, '
    .TPrP    VAR,'pPr, '
    .Ptr     NOVAR,'pIOBuf)'

;PrOpenPage
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PrOpenPage('
    .TPrP    VAR,'pPr, '
    .Rect    VAR,'pgFrame)'

;PrPicFile
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    DC.B    'PrPicFile('
    .THPrint NOVAR,'hPr, '
    .TPrP    VAR,'pPr, '
    .Ptr     NOVAR,'pIOBuf, '
    .Ptr     NOVAR,'pDevBuf, '
    DC.B     '(TPrStatus *) status)'

;PrSetError
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    0
    DC.B    'PrSetError('
    .Integer NOVAR,'err)'

;PrStlDialog
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'ok = PrStlDialog('
    .THPrint  NOVAR,'hPr)'

;PrValidate
id set id+1
    RESOURCE  'ROMC' id (32)
    DC.B    1
    .Boolean NOVAR,'ok = PrValidate('
    .THPrint  NOVAR,'hPr)'